home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_Read.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  585b  |  31 lines
  1. /*
  2. ** Example script for MM_SearchMsgs and MM_ReadMsg commands
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. MM_SearchMsgs 'MATRIX' 'NUM' '"Marco Musso"' '#?' '#?' !INTR
  8.  
  9. if RC=0 THEN DO i=0 FOR NUM.COUNT
  10.     MM_ReadMsg 'MATRIX' NUM.i MSG
  11.     if RC=0 THEN DO
  12.         say
  13.         say
  14.         say 'From:' MSG.FROM MSG.FROMADDR
  15.         say 'To:  ' MSG.TO MSG.TOADDR
  16.         say 'Subj:' MSG.SUBJ
  17.         say 'Date:' MSG.DATE
  18.         say 'Flags:' MSG.FLAGS
  19.         say
  20.         DO j=0 FOR MSG.HEAD.COUNT
  21.             say 'Head:' MSG.HEAD.j
  22.             END
  23.         DO j=0 FOR MSG.TEXT.COUNT
  24.             say 'Text:' MSG.TEXT.j
  25.             END
  26.         DO j=0 FOR MSG.FOOT.COUNT
  27.             say 'Foot:' MSG.FOOT.j
  28.             END
  29.         END
  30.     END
  31.